home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / APW.SC / SC20DTSToolLib / FMDUserTool.asm < prev    next >
Encoding:
Assembly Source File  |  1990-06-24  |  3.6 KB  |  146 lines  |  [TEXT/pdos]
  1. *
  2. * User-Toolset shell for Apple IIgs FakeModalDialog code
  3. *
  4. * David A. Lyons
  5. *
  6. * Developer Technical Support Apple II Sample Code
  7. *
  8. * v3.0  12-Mar-90  DAL
  9. *
  10.             case on
  11.  
  12. Version     gequ $0100                 ;v1.0
  13.  
  14. fmdUserTool start
  15.  
  16.             dc i4'(fmdEnd-fmdStart)/4+1'
  17. fmdStart    dc i4'fNoError-1'           ;01xx fmdBootInit
  18.             dc i4'fStartUp-1'           ;02xx fmdStartUp
  19.             dc i4'fShutDown-1'          ;03xx fmdShutDown
  20.             dc i4'fVersion-1'           ;04xx fmdVersion
  21.             dc i4'fNoError-1'           ;05xx fmdReset
  22.             dc i4'fStatus-1'            ;06xx fmdSTatus
  23.             dc i4'fNoError-1'           ;07xx reserved
  24.             dc i4'fNoError-1'           ;08xx reserved
  25.             dc i4'fFakeMdlDlg-1'        ;09xx fakeModalDialog
  26.             dc i4'fSetMenuProc-1'       ;0Axx fmdSetMenuProc
  27.             dc i4'fGetMenuProc-1'       ;0Bxx fmdGetMenuProc
  28.             dc i4'fmdStdDrawProc-1'     ;0Cxx fmdStdDrawProc*
  29.             dc i4'fmdEditMenu-1'        ;0Dxx fmdEditMenu*
  30.             dc i4'fFindCursCtl-1'       ;0Exx fmdFindCursorCtl
  31.             dc i4'fSetText-1'           ;0Fxx fmdLESetText
  32.             dc i4'fGetText-1'           ;10xx fmdLEGetText
  33.             dc i4'fWhichRadio-1'        ;11xx fmdWhichRadio
  34.             dc i4'fmdIBeamCursor-1'     ;12xx fmdIBeamCursor*
  35.             dc i4'fmdInitIBeam-1'       ;13xx fmdInitIBeam*
  36.             dc i4'fSetIBeam-1'          ;14xx fmdSetIBeam
  37.             dc i4'fGetIBeamAdr-1'       ;15xx fmdGetIBeamAdr
  38.             dc i4'fGetCtlPart-1'        ;16xx fmdGetCtlPart
  39.             dc i4'fGetError-1'          ;17xx fmdGetCtlPart
  40. fmdEnd      anop
  41.  
  42. *            
  43. save6       lda >myStatus
  44.             beq notStarted
  45.             plx
  46.             pla
  47.             sta >temp
  48.             pla
  49.             sta >temp+2
  50.             pla
  51.             sta >temp+4
  52.             phx
  53.             rts
  54.  
  55. temp        ds  6
  56.  
  57. myStatus    ds  2
  58.  
  59. notStarted  pla                       ;discard return address
  60.             txa
  61.             xba
  62.             and #$ff00
  63.             ora #$8001
  64.             sec
  65.             rtl
  66.  
  67. fStartUp    jsl fmdStartUp
  68.             lda #$ffff
  69.             bra startStop
  70.  
  71. fShutDown   jsl fmdShutDown
  72.             lda #$0000
  73. startStop   sta >myStatus
  74. fNoError    lda #0
  75.             clc
  76.             rtl
  77.  
  78. fVersion    lda #Version
  79.             sta 7,s
  80.             bra fNoError
  81.  
  82. fStatus     lda >myStatus
  83.             sta 7,s
  84.             bra fNoError
  85.  
  86. fFakeMdlDlg jsr save6
  87.             jsl fakeModalDialog
  88.             bra restore6
  89.  
  90. fSetMenuProc anop
  91.             jsr save6
  92.             jsl fmdSetMenuProc     ;Ahhhhh!!  We are falling.
  93.  
  94.  
  95. restore6    tay                    ;This is here so everybody
  96.             lda >temp+4            ;can reach it.
  97.             pha
  98.             lda >temp+2
  99.             pha
  100.             lda >temp
  101.             pha
  102.             tya
  103.             rtl
  104.  
  105.             
  106. fGetMenuProc anop
  107.             jsr save6
  108.             jsl fmdGetMenuProc
  109.             bra restore6
  110.  
  111. fFindCursCtl anop
  112.             jsr save6
  113.             jsl fmdFindCursorCtl
  114.             bra restore6
  115.  
  116. fSetText    jsr save6
  117.             jsl fmdLESetText
  118.             bra restore6
  119.  
  120. fGetText    jsr save6
  121.             jsl fmdLEGetText
  122.             bra restore6
  123.  
  124. fWhichRadio jsr save6
  125.             jsl fmdWhichRadio
  126.             bra restore6
  127.  
  128. fSetIBeam   jsr save6
  129.             jsl fmdSetIBeam
  130.             bra restore6
  131.  
  132. fGetIBeamAdr anop
  133.             jsr save6
  134.             jsl fmdGetIBeamAdr
  135.             bra restore6
  136.  
  137. fGetCtlPart jsr save6
  138.             jsl fmdGetCtlPart
  139.             bra restore6
  140.  
  141. fGetError   jsr save6
  142.             jsl fmdGetError
  143.             bra restore6
  144.  
  145.             end
  146.